Voorbeeld van de eigenschap PictureAlignment

In het volgende voorbeeld wordt de eigenschap PictureAlignment gebruikt om een achtergrondfiguur in te stellen. In dit voorbeeld worden ook de opties voor uitlijning aangegeven van de eigenschap PictureAlignment.

Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een Frame met de naam Frame1.
  
  
• Een SpinButton met de naam SpinButton1.
  
  
• Een TextBox met de naam TextBox1.

Dim Alignments(5) As String

Private Sub UserForm_Initialize()
    Alignments(0) = "0 - Top Left"
    Alignments(1) = "1 - Top Right"
    Alignments(2) = "2 - Center"
    Alignments(3) = "3 - Bottom Left"
    Alignments(4) = "4 - Bottom Right"

    'Specify a bitmap that exists on your system
    Frame1.Picture = LoadPicture("c:\winnt2\ball.bmp")
    
    SpinButton1.Min = 0
    SpinButton1.Max = 4
    SpinButton1.Value = 0
    
    TextBox1.Text = Alignments(0)
    Frame1.PictureAlignment = SpinButton1.Value
End Sub

Private Sub SpinButton1_Change()
    TextBox1.Text = Alignments(SpinButton1.Value)
    Frame1.PictureAlignment = SpinButton1.Value
End Sub

Private Sub TextBox1_Change()
    Select Case TextBox1.Text
    Case "0"
        TextBox1.Text = Alignments(0)
        Frame1.PictureAlignment = 0
    Case "1"
        TextBox1.Text = Alignments(1)
        Frame1.PictureAlignment = 1
    Case "2"
        TextBox1.Text = Alignments(2)
        Frame1.PictureAlignment = 2
    Case "3"
        TextBox1.Text = Alignments(3)
        Frame1.PictureAlignment = 3
    Case "4"
        TextBox1.Text = Alignments(4)
        Frame1.PictureAlignment = 4
    Case Else
        TextBox1.Text = Alignments(SpinButton1.Value)
        Frame1.PictureAlignment = SpinButton1.Value
    End Select
End Sub